home *** CD-ROM | disk | FTP | other *** search
/ Macromedia Multimedia Showcase 6.0 / Macromedia Multimedia Showcase v6.0 WIN-MAC (XMSH60CD)(Macromedia, Inc.)(1996).iso / pc / demosoft / freehand / data.5 / App / Usenglsh / lang8.dll / POST / 1149 < prev    next >
Text File  |  1996-10-03  |  2KB  |  127 lines
  1. userdict begin /texturedict 50 dict def end
  2. texturedict begin
  3. /scalefactor .24 def
  4. /angarray [0 90 180 270] def
  5. /imagesize 72 def
  6. /scaledsize
  7. {
  8. imagesize scalefactor mul
  9. } def
  10. /angget
  11. {
  12. angarray aryindex get
  13. } def
  14. /xtransget
  15. {
  16. xtrans aryindex get
  17. } def
  18. /ytransget
  19. {
  20. ytrans aryindex get
  21. } def
  22. /imageloop                
  23. {
  24. 0 scaledsize dy        
  25. {
  26. /ycur exch def
  27. 0 scaledsize dx
  28. {
  29. /xcur exch def
  30. gsave
  31. xcur ycur translate        
  32. /aryindex rand2 def    
  33. angget rotate
  34. xtransget ytransget translate    
  35. imagesize imagesize scale    
  36. 0 0 moveto
  37. (a) show
  38. grestore
  39. } for
  40. } for
  41. } def
  42. end
  43. /invbuf{
  44. 0 1
  45. 2 index length 1 sub
  46. {
  47. dup                
  48. 2 index exch     
  49. get             
  50. 255 xor            
  51. 2 index         
  52. 3 1 roll put
  53. }
  54. for
  55. }bdf
  56. /settexturepattern
  57. {
  58. texturedict fhtexturepattern get
  59. invflag
  60. {
  61. dup length /str2 exch string def str2 copy invbuf
  62. } if
  63. /fhtexturepattern xdf
  64. } bdf
  65. /texture {    
  66. gsave
  67. [0 0 0 0] vc
  68. filler    
  69. grestore
  70. supdict begin  
  71. /txsave save def
  72. newinside
  73. vc  
  74. texturedict begin
  75. /fhtexturepattern xdf  
  76. /invflag false def
  77. fhtexturepattern (burlap) eq        
  78. {/imagesize 144 def}{/imagesize 72 def} ifelse
  79. fhtexturepattern (light-mezzo) eq {/invflag true def} if
  80. fhtexturepattern (light-mezzo) eq fhtexturepattern (heavy-mezzo) eq or
  81. {/fhtexturepattern (mezzo) def} if
  82. 9 dict begin
  83. /FontType 3 def
  84. /FontMatrix [1 imagesize div 0 0 1 imagesize div 0 0] def
  85. /FontBBox [0 0 imagesize imagesize] def
  86. /PaintType 3 def
  87. /Encoding 256 array def
  88. 0 1 255 {Encoding exch /.notdef put} bind for
  89. Encoding 97 /thetile put
  90. /CharProcs 2 dict def
  91. CharProcs begin
  92. /.notdef {} def
  93. /thetile {
  94. imagesize imagesize true
  95. [imagesize 0 0 imagesize 0 0]
  96. {fhtexturepattern} systemdict begin imagemask end
  97. } def
  98. end
  99. /BuildChar {
  100. imagesize 0
  101. 0 0 imagesize imagesize
  102. setcachedevice
  103. exch begin
  104. Encoding exch get
  105. CharProcs exch get
  106. end
  107. exec
  108. } bdf
  109. currentdict
  110. end
  111. /TextureFont exch definefont pop
  112. /xtrans [0 0 scaledsize neg scaledsize neg] def
  113. /ytrans [0 scaledsize neg scaledsize neg 0] def
  114. /TextureFont findfont scaledsize scalefont setfont
  115. fhtexturepattern (burlap) eq fhtexturepattern (denim) eq or
  116. {
  117. fhtexturepattern (burlap) eq
  118. {settexturepattern burlapimageloop}
  119. {settexturepattern denimimageloop}
  120. ifelse
  121. }
  122. {settexturepattern imageloop} ifelse
  123. txsave restore
  124. end
  125. end
  126. } def